U_p=j*180*0.72;
R_s=63*10^-3;

L_h=2*10^-3;
L_so=1*10^-3;
f_s=100;
L_s=L_h+L_so;


omega=2*pi*f_s;
Xh=j*omega*L_s;
U_s=j*100*0.72-7*0.72;
I_k=(U_s-U_p)/(Xh+R_s)

I_kabs=abs(I_k)
beta=angle(I_k)

U_p=abs(U_p);

Zeigerdiagramm_Vollpol(U_p, I_kabs, beta, f_s, L_h, L_so, R_s)